program Project1; // Zadanie 5.1

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  a, b, pole: Real; // deklaracja zmiennych globalnych

procedure pole_prostokata(); // deklaracja i definicja procedury
  begin
    Writeln('Program oblicza pole prostokata.');
    Writeln('Podaj bok a');
    Readln(a);
    Writeln('Podaj bok b');
    Readln(b);
    pole:= a*b;
    Writeln('Pole prostokata o boku a = ', a:4:2, ' i boku b = ', b:4:2);
    Writeln('wynosi ', pole:4:2, '.');
  end;

begin
  pole_prostokata(); // wywolanie procedury (podprogramu) w programie glownym

  Readln; // czeka na nacisniecie klawisza ENTER
end.
